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wisteny ; Detailed Current Edit History 
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FORRTL.SRCJFORWRITSO.MAR; 1 (1) 
»TITL RSWRITE_SO = entry point for FORTRAN WRITE SEQUENTIAL OBJECT-FORMA 
- IDEN if ot) Files PPORWRITSO. MAR Edit: Pits Hf 


$ eucnceooononncensnoonnenectceonecennsennooeneneneesonsonencesceeoseeeseeees 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ITAL Sad 1 CORPORATION, MAYNARD. MASSACHUSETTS. 


— »Oo 


Soze=z | a eed 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH pats AND WITH THE 
USION OF THE ABOV Spl h ol NOTICE. THs SOFTWARE OR ANY OTHER 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PE NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoePOkAt ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


This module contains the gatey ay for the FORTRAN 

WRITE SEQUENTIAL OBJECT-FORMATTED I/0 statement. It is simply 
a call to FORS$IO_BEG with bits in RO which describe the 
parameter List. FORSS1O. BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSWRITE_SO 
. MASK F 10_BEG 
BRW FORSWRITE_SO+2 
This puts the correct mask in entry vector, that is FORS$$IO_BEG entry mask. 
Furthermore this module must only use RO and 
since any other register might not be in the entry mask for FORSS$I0_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
. Hastings, 29-July-78 
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led Current History 6-SEP- FORRTL.SRCJFORWRITSO.MAR; 1 
-SBTTL HISTORY ; Detailed Current Edit History 


IO 


Edit History for Version 1 


Add comment shout vectors. TNH 23-June-78 

Pass arg in RO, not ROR, add comments. TNH 29-July-78 

Update version number and copyright notice. JBS 16-NOV-7 

Change statement type symbols to be LUB$K... JBS 07-DEC- H 

Change statement type Syaneys to be ISBSK..._ JBS 11-DEC-7 

Add to the PSECT directive. JB -DEC- 

Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
ORSREAD_ 10, FORSWRITE_IF, FORSWRITE_10, 


—— 
‘es 
Win 
seeeevpeee 


noneve all entry potote that need object time formatting, 
utt ng them in FORSENTRY_OBJ so that we can arrange to 
oad the forage compiler only when it is needed. 
JBS 26-JUN-19 
1-007 - Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORSS$IO_BEG 8 see how much 1/0 initiation time 
improves. JBS 02-JUL-1979 
8 - Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
9 = Remove all entry points and add FORSWRITE_SO; each entry 
point gets its own module do we can ye yg load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
- New parameter format for FORS$IO_BEG. SBL 5-Dec-1979 
= Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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: INCLUDE FILES: 


> EXTERNAL SYMBOLS: 


; MACROS: 


oxy Peet for FORTRAN WRITE sPaventt x ie Bat o8¢ 90: gr: 96 


~SBTTL DECLARATIONS 


SFORPAR 
SISBDEF 


AX/VMS 
FORRTL. 


— PRS ] 


v04-00 P 
SRESPORURITSO.MAR;1 °° (3) 


; Define inter-module FORTRAN symbols 
: Define statement type symbols 


-DSABL GBL ; Declare all external symbols 


*EXTRN FORSSIO BEG 
modules are 
_the dispatch tables in FORSSD! ISPA 


.EXTRN FORSSUDF_WFO, FORSSUDF_WF1 
TEXTRN FORSSREC-WSFO, FORSSREC_WSF1, 


-EXTRN FORSSFMT_COMPIL 


NONE 


; PSECT DECLARATIONS: 


-PSECT 


EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 


FORSSUDF WF9 
FORSSREC_wWSF9 


-FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 
| 


; common 1/0 statement processing 


Mg ; The S Tettoulnp references are to make sure the necessary UDF and REC 
oaded. These are she routines which are called through 


ze 
; The following reference makes sure the format compiler is loaded. 


"YrrNoo=zis 
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1-011 FORSWRITE_SO = ORITE Sequent at 0 ieet= $28 p-1986 99383598 FORRTL.SRCJFORWRITSO.MAR; 1 “1 (4) 


-SBTTL FORSWRITE_SO - WRITE Sequential OBJECT-FORMATTED 


poe 
§ ; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 proces to perform 
a write sequential OBJECT-FORMATTED 1/0 statement. 


CALLING SEQUENCE: 


CALL FORSWRITE_SO (unit. rl.v, va Sail 
, err_adr.j.r C, end_adr.j.rJJ) 


INPUT PARAMETERS: 


RANA 
ODN 


unit.rl.v Logical unit number 
ormat_adr.rt.r format string (needs compilation) 
err_a ae optional ERR= address 
end_adr.).r optional END= address 


00 
00 


IMPLICIT INPUTS: 

NONE except those used by FORSS$IO_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORSSIO_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$IO_BEG. 
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NRO OONOA AEN 9 ODN NEW  O OD NAME WH S$ OOONOUE Wt" 


oon” FORSWRITE SO:: .MASK FORSSIO BEG 
50 0101 8F C MOVZWL ARTS ST_TY_WSF+ - 
<1aFORSV_OBJ"FMT>, RO ; Statement type 
00000002"GF 17 JMP G*FORS$IO_BEG+2 ; branch past call mask 
0 “END 
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Symbol table Bos $786 p= 1384 99503: 92 FORRTL.SRCJFORWRITSO.MAR; 1 . (4) 
FORSSFMT COMPIL eeeerere 8 
FORS$10_ BEG eeneneee 
FORSSREC_wSF eereeeee YX 
FORSSREC WSF eeeeeeee 8 § X 
FORSSREC_WSF9 eeeeeeee x 
hk + 9 4 eeeereee = YX 
FORSSUDF _wF eeeneere 
FORSSUDF _WF9 eeereeee 
FORSV_OBJ_FMT = 0000 : 
FORSWRITE-SO 90 RG 01 
1SBSK_ST_TY_wSF = 1 


Set ee ware eae eames } 


LN ens ssc: sss 


PSECT name Allocation PSECT No. Attributes 

- ABS. 00000000 < g} 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

_F ORSCODE 0000000D_ ( ie? BES . teat PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
torent ewe seco e nm oe ese es eee + 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 1 69:00:00. 19 90:00:00.2) 

Command processing 130 B3: 0: y-§ 0:00:03.63 

Pass 126 0:00:01. § Be Be: 

Symbol table sort ! 00:00:00.1 0:00:00.45 

ass 4 0 att 8-83 Bh 1.79 

Symbol table output 3 :00: 06 00:00: 8-9 

Psect synopsis output 3 +98: 0. sf 0. 

Cross-reference output 0 3. 00:00:00.0 

Assembler run totals 341 00:00:02.64 00:00:11.56 


The working set Limit was 1050 pages. 

6711 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 188 non-local and 0 local symbols. 

2 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. | 
| 
| 
| 
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Macro Library name Macros defined 
$255$DUA28: CFORRTL.OBJJFORRTL.MLB; 1 

Bitty HEGRE HAT Tite He 6 
TOTALS (all Libraries) 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
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MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORWRITSO/OBJ=OBJ$:FORWRITSO MSRCS$:FORWRITSO/UPDATE=(ENH$:FORWRITSO)+LI 
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